home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-ROM Collection / Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso / auge4000 / 46 / lib / extra / gethead.a < prev    next >
Text File  |  1990-06-20  |  234b  |  18 lines
  1.  
  2.         section text,CODE
  3.  
  4.         xdef    _GetHead    ; GetHead(list:4(sp))
  5.         xdef    _GetSucc    ; GetSucc(node:4(sp))
  6. _GetSucc:
  7. _GetHead:    move.l    4(sp),A0
  8.         move.l    (A0),A0
  9.         tst.l    (A0)
  10.         beq    gh0
  11.         move.l    A0,D0
  12.         rts
  13. gh0        moveq.l #0,D0
  14.         rts
  15.  
  16.         END
  17.  
  18.